home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
pgmmenu.arc
/
PGMMENU.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-12-04
|
5KB
|
102 lines
CMD PROMPT('CRC - Programmer Menu')
/* PGMMENU */
/* Command processing program is CRC1230 */
PARM KWD(USROPT) TYPE(USROPT) DFT(*NONE) +
SNGVAL((*NONE) (*DFT) (*CURRENT)) +
PROMPT('User''s default option:')
USROPT: QUAL TYPE(*NAME) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
EXPR(*YES) PROMPT('Library name:')
PARM KWD(SRCFILE) TYPE(*NAME) EXPR(*YES) +
PROMPT('Source file name:')
PARM KWD(SRCLIB) TYPE(*NAME) DFT(*LIBL) +
SPCVAL((*LIBL)) EXPR(*YES) PROMPT('Source +
file library name:')
PARM KWD(OBJLIB) TYPE(*NAME) DFT(QGPL) +
SPCVAL((QGPL)) EXPR(*YES) PROMPT('Object +
library name:')
PARM KWD(JOBD) TYPE(JOBD) PROMPT('Job description:')
JOBD: QUAL TYPE(*NAME) DFT(QBATCH) SPCVAL((QBATCH) +
(QPGMR)) EXPR(*YES)
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
EXPR(*YES) PROMPT('Job description library +
name:')
PARM KWD(LOG) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*YES) SPCVAL((*YES) (*NO)) EXPR(*YES) +
PROMPT('Log command requests:')
PARM KWD(SIGNOFF) TYPE(*CHAR) LEN(7) RSTD(*YES) +
DFT(*NOLIST) SPCVAL((*NOLIST) (*LIST)) +
EXPR(*YES) PROMPT('Sign off (*LIST +
*NOLIST):')
PARM KWD(LOGCLPGM) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*JOB) SPCVAL((*YES) (*NO) (*JOB)) +
EXPR(*YES) PROMPT('Log CL program commands:')
PARM KWD(ALWRTVSRC) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*YES) SPCVAL((*YES) (*NO)) EXPR(*YES) +
PROMPT('Allow retrieve CL source:')
PARM KWD(USRPRF) TYPE(*CHAR) LEN(6) RSTD(*YES) +
DFT(*USER) SPCVAL((*USER) (*OWNER)) +
EXPR(*YES) PROMPT('Adopt user profile +
authority:')
PARM KWD(PUBAUT) TYPE(*CHAR) LEN(7) RSTD(*YES) +
DFT(*NORMAL) SPCVAL((*NORMAL) (*ALL) +
(*NONE)) EXPR(*YES) PROMPT('Public +
authority:')
PARM KWD(RSTDSP) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*NO) SPCVAL((*YES) (*NO)) EXPR(*YES) +
PROMPT('Restore display:')
PARM KWD(DFRWRT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*NO) SPCVAL((*YES) (*NO)) EXPR(*YES) +
PROMPT('Defer write:')
PARM KWD(SIZE) TYPE(SIZE) PROMPT('Initial number +
of records:')
SIZE: ELEM TYPE(*CHAR) LEN(8) DFT(10000) +
SPCVAL((*NOMAX)) EXPR(*YES) PROMPT('Initial +
file allocation:')
ELEM TYPE(*CHAR) LEN(5) DFT(1000) EXPR(*YES) +
PROMPT('Increment records:')
ELEM TYPE(*CHAR) LEN(6) DFT(3) EXPR(*YES) +
PROMPT('Maximum number of increments:')
PARM KWD(MAXRCDS) TYPE(*CHAR) LEN(6) DFT(20000) +
SPCVAL((*NOMAX)) EXPR(*YES) PROMPT('Maximum +
printer file records:')
PARM KWD(SCHEDULE) TYPE(*CHAR) LEN(8) RSTD(*YES) +
DFT(*JOBEND) SPCVAL((*JOBEND) (*FILEEND) +
(*IMMED)) EXPR(*YES) PROMPT('Print file +
output scheduling:')
PARM KWD(BLINK) TYPE(*LGL) RSTD(*YES) DFT(*YES) +
SPCVAL((*YES '1') (*NO '0')) EXPR(*YES) +
PROMPT('Blinking cursor:')
PARM KWD(RSTLIBL) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*NO) VALUES(*NO *YES) EXPR(*YES) +
PROMPT('Save/Restore library at CMD 1:')
PARM KWD(MBRLIST) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*NO) VALUES(*NO *YES) EXPR(*YES) +
PROMPT('Require (* ?) for Member list:')
PARM KWD(DFTYPE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*RQD) VALUES(ASM BAS BASP BSCF CBL CL +
CLP CMNF DDS DFU DSPF FMT LF MXDF PLI PF +
PL1 PRTF QRY RPG PRT TXT DOC) +
SPCVAL((*RQD)) EXPR(*YES) PROMPT('Default +
for TYPE parameter:')
PARM KWD(SHARE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*NO) VALUES(*NO *YES) EXPR(*YES) +
PROMPT('Share open data path:')
PARM KWD(OPTIMIZE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*NO) VALUES(*NO *YES) EXPR(*YES) +
PROMPT('Optimize HLL programs:')